home *** CD-ROM | disk | FTP | other *** search
/ Mobiclic 71 / MOBICLIC 71.ISO / mac / DATA / COMMUN / temp0001 / 00228_Script_GESTION_BTONS_ZAPETTE_NAVIGATION < prev    next >
Text File  |  2004-12-05  |  3KB  |  97 lines
  1. global gL_Zap
  2. property p_cettePiste, p_Nodepiste,p_nom_Acteur, pNoBton,pmem_titre
  3. ----------------------------------
  4. on beginsprite me
  5.   p_Nodepiste = me.spriteNum
  6.   p_cettePiste = sprite(p_Nodepiste)
  7.   p_nom_Acteur = p_cettePiste.member.name
  8.   if p_nom_Acteur contains "ZNEXT" then
  9.     gL_Zap[7] = [p_Nodepiste]
  10.     pNoBton = 1
  11.   else
  12.     gL_Zap[7].add(p_Nodepiste)
  13.     pNoBton = p_Nodepiste - gL_Zap[7][1] + 1
  14.   end if
  15. end
  16. ----------------------------------- 
  17. on mouseEnter
  18.   if the pauseState = 1 then exit
  19.   if gL_Zap[9] <> "ATTENTE" then exit--pas d'ΘxΘcution si on est dans l'aide ,le dico ou l'info
  20.   if gL_Zap[3] = 1 then exit--pas d'ΘxΘcution  pendant la MAJ zapette
  21. --  if pNoBton < 6 then --pour tous les boutons sauf le bouton "Sommaire"
  22.     if localParam("NAV", pNoBton) = -1 then
  23.       exit --pas d'ΘxΘcution si la commande est inactive pour ce movie
  24. --    end if
  25.   end if
  26.   pmem_titre = member("TITRE_RUB").text
  27.   case(pNoBton) of
  28.     1:
  29.       member("TITRE_RUB").text = "Suite"
  30.     2:
  31.       member("TITRE_RUB").text = "Retour"
  32.     3:
  33.       member("TITRE_RUB").text = "DΘbut"
  34.     4:
  35.       member("TITRE_RUB").text = "Rejouer"
  36.     5:
  37.       member("TITRE_RUB").text = "Pause"
  38.       case(gL_Zap[10]) of
  39.         0:
  40.           p_cettePiste.member = "BTON_PAUSE_R"
  41.         1:
  42.           p_cettePiste.member = "BTON_GO_R"
  43.       end case
  44.     6:
  45.       member("TITRE_RUB").text = "Sommaire"
  46.   end case
  47.   --  p_nom_Acteur = p_cettePiste.member.name--rafraichissement obligΘ de p_nom_Acteur puisque le n░ de style peut varier
  48.   p_cettePiste.member = p_nom_Acteur&"_R"
  49.   lowjingle(8,"NAV_"&gimme2digits(pNoBton), "O")
  50.   updateStage
  51.   cursor 280
  52.   stopEvent
  53. end
  54. ---------------------------------
  55. on mouseLeave
  56.   stopEvent
  57.   cursor -1
  58.   if the pauseState = 1 then exit
  59.   if gL_Zap[9] <> "ATTENTE" then exit--pas d'ΘxΘcution si on est dans l'aide ,le dico ou l'info
  60.   if gL_Zap[3] = 1 then exit--pas d'ΘxΘcution pendant la MAJ zapette
  61.   if pNoBton < 6 then
  62.     if localParam("NAV", pNoBton) = -1 then
  63.       exit --pas d'ΘxΘcution si la commande est inactive pour ce movie
  64.     end if
  65.   end if
  66.   if pNoBton = 5 then
  67.     case(gL_Zap[10]) of
  68.       0:
  69.         p_cettePiste.member = "BTON_PAUSE"
  70.       1:
  71.         p_cettePiste.member = "BTON_GO"
  72.     end case
  73.   else
  74.     p_cettePiste.member = p_nom_Acteur
  75.   end if
  76.   --  member("TITRE_RUB").text =  localparam("MISC","ZTITLE")
  77.   if not(voidP(pmem_titre)) then
  78.     member("TITRE_RUB").text = pmem_titre
  79.   else
  80.     member("TITRE_RUB").text = EMPTY
  81.   end if
  82.   updateStage
  83.   stopEvent
  84. end
  85. ----------------------------------- 
  86. on mouseUp me
  87.   stopEvent
  88.   if the pauseState = 1 then exit
  89.   if gL_Zap[9] <> "ATTENTE" then exit--pas d'ΘxΘcution si on est dans l'aide ,le dico ou l'info
  90.   if gL_Zap[3] = 1 then exit--pas d'ΘxΘcution  pendant la MAJ zapette
  91.   if localParam("NAV", pNoBton) = -1 then exit --pas d'ΘxΘcution si la commande est inactive pour ce movie
  92.   cursor -1
  93.   ZAP_NAVIG(me,pNoBton)-- on envoie au bon movie
  94.   stopEvent
  95. end
  96. ----------------------------------- 
  97.